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Caro Leitor: 


Por culpa de terceiros e por motivos que não conseguimos entender, a 
edição anterior acabou por só estar nas bancas I4 dias depois de 
pronta, exceptuando para os assinantes e «Ofertas». 

Por este facto, cumpre-nos apresentar as nossas sinceras desculpas e 
agradecer aos serviços de distribuição o esforço desenvolvido para que 
a atraso não fosse maior. 

Por outro lado, porque estivemos ausentes do local de trabalho partici- 
pando na INFORNOR 91, em Braga, também ficámos privados de 
tempo para concluir a edição de Maio, o que nos obriga a tornar este 
número referente a MAIO / JUNHO, na tentativa de que o número 
seguinte não entre pelo mês de Agosto ( altura em que todos estamos de 
férias ) e possamos ter tempo para executar outra fase do nosso projecto 
evolutivo, assim como para criar uma nova estrutura, em função das re- 
sponsabilidades assumidas para com uma empresa do Norte cuja 
actividade vem ao encontro de uma parcela do nosso projecto inicial. 
Pela prioridade dos assuntos a tratar e pelo «atraso» que nos cau- 
saram, consideramos esta opção a mais correcta, atendendo a que 
também desejamos aprontar o mais rápidamente possível a edição de 
Julho para termos tempo para tudo quanto tem de ser feito antes de 
Setembro. 

Não foi uma opção agradável, mas esperamos que seja entendida como 
a única possível. 

Esperamos que casos destes não voltem a acontecer pois em nada 
dignificam uma revista que deve a sua implantação à periodicidade que 
conseguiu manter até hoje. Se tivessemos o nosso próprio parque 
gráfico, como acontece com outras publicações, nada disto teria 
acontecido!!! Ao leitor, mais uma vez, as nossas desculpas. 

Até para o próximo mês. 

Continue connosco! 
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NOTÍCIAS 


NOVO MODELO TOPO 
DE GAMA - DRS 6000 L65 
ANUNCIADO PELA ICL 


O DRS 6000 Levcl 65 apre- 
senta uma performance supe- 
rior em mais de 50% em relação 
à do anterior modelo de topo de 
gama, o DRS 6000 Level 50. 
Modelo ideal para suporte de 
grandes e complexas bases de 
dados relacionais e aplicações 
OFFICEPOWER, o DRS 6000 
Level 65 integra-se na gama de 
servers UNIX com processa- 
dores SPARC/RISC e multi- 
processamento simétrico 
(SMP), lançada pela ICL no 
início de 1990. 

Este modelo inclui uma CMT ( 
Cartridge Magnetic Tape ) QIC- 
150, dois discos de 660 MBytes, 
16 portas séric e dois canais 
controladores SCSI. 


Em simultânco com este 


lançamento a ICL também apre- 
sentou a sua última versão do 
sistema operativo DRS/NX 
6000, o "porting” de referência 
para o UNIX System V Relcase 
4.0 da AT&T. 


VERSÃO MULTIUTILI- 
ZADOR DOS PRO- 
DUTOS CASE. 


Foi recentemente disponibili- 
zada pela McDonncll Douglas 
e para o mercado Português a 
versão multiutilizador de upper 
CASE Prokit*Workbench, que 
irá permitir que equipas de 
projecto trabalhem em ambi- 
ente de rede local sob um repos- 
tório integrado e disponivel em 
modo “on-line”. 

À nova versão vai permitir cle- 
vados ganhos de tempo e re- 
dução dos custos aos seus utili- 
zadores e aumentar de forma 
significativa a produtividade. 


Num ambiente monoutilizador, 
os membros das equipas de 
projecto trabalham de forma 
isolada nas suas estações de 
trabalho, utilizando disketes de 
projecto nas operações físicas 
de importação e exportação para 
actualizar a estação master ou 
repositório. Devido a isso, o 
tempo dispendido em proces- 
sos de âmbito puramente ad- 
ministrativo encarece e retarda 
o projecto, obrigando a op- 
crações de rolinaCom o 
Prokit*Workbench versão 
multiutilizador, esses procedi- 
mentos são eliminados... 

Para mais esclarecimentos, 
contactar Terintrade - (01)- 795 
18 06/8/9. 


TECNOLOGIA DE BASE 
PARA  NORMALI- 
ZAÇÃO DE SOFTWARE 


A Digital Equipment Corpora- 
tion foi seleccionada pelo "Open 
Architecture Consortium” para 
fornecer a tecnologia de base 
para um conjunto de ferramen- 
tas (“Toolkit”) que permitirá aos 
programadores de software 
desenvolver aplicações de 
acordo com as normas ODA - 
Open Document Architecture. 
O trabalho da Digital relati- 
vamente ao "toolkit” bascia-se 
na tecnologia comprovada da 
sua arquitectura de documen- 
tos compostos CDA ( Com- 
pound Document Architecture). 
A CDA da Digital constitui uma 
estrutura aberta e integrada para 
a criação e intercâmbio de dados 
passíveis de revisão, tais como 
texto, gráficos, folhas de cálculo 
c imagens, que podem ser inte- 
grados em documentos com- 
postos passíveis, também, de 
serem revistos.O objectivo do 
Consrtium, do qual a Digital é 
membro fundador, é descnvol- 


ver e promover o padrão ODA 
para software criado ec comcr- 
cializado pelos scus membros, 
que incluem ainda o Grupo Bull, 
a IBM, a ICL, a Siemens 
Nixdorf e a Unisys, prevendo- 
se ainda licenças de utilização a 
outras companhias. 

A arquitectura CDA é um 
componente de partilha de in- 
formações do NAS (Network 
Application Support), imple- 
mentação de sistemas abertos 
da Digital, bascado em normas 
da indústria. Os produtos CDA 
proporcionam o intercâmbio 
com o ODA ce com os outros 
padrões lideres na indústria, tais 
como o SGML, COM, IGES, 


ORACLE ANUNCIA 
VERSÃO 6.0 DAS FER- 
RAMENTAS E BASE DE 
DADOS PARA MS-DOS 
E 0S/2 


Com a versão 6.0 da base de 
dados e ferramentas ORACLE, 
tornou-se possível o desen- 
volvimento de complexas apli- 
cações num PC, em configu- 
rações “standalonc” ou "client- 
server”, c o seu porte para mais 
de 85 plataformas suportadas 
pela ORACLE. 

O conjunto de ferramentas do 
ORACLE V.6.0 contém uma 
ligação mais profunda entre o 
SQL FORMS co SQL MENU, 
proporcionando aos programa- 
dores uma interacção mais in- 
tuitiva a apresentando uma 
interface de menus "pull-down” 
interactivos para o desenho e 
criação de aplicações. 

Outras funcionalidades "uscr- 
friendly” incluem páginas e 
listas de valores “pop-up” e 
“help” especificos ao contexto. 
O SQL FORMS 3.0 fomece aos 
programadores uma ferramenta 


de produtividade aumentada 
pela geração automática de 
código para relações "master- 
detail”, uma maior lista de "trig- 
gers” pré-definidos e suporte 
para o PL/SQL (poderosa ex- 
tensão procedural ORACLE à 
linguagem SQL), além de facili- 
dade de cópia de rentabilização 
de vários objectos do "forms”, 
incluíndo "triggers”, menus, 
procedimentos e secções de 
código. 

O SQL REPORTWRITER tem 
uma maior [flexibilidade em 
“run-lime”, "user-exils”, mcl- 
hor controle de impressora e 
ajustamento de palavras. 

O pré-compilador ORACLE de 
C (PROC), inclui agora suporte 
para o "Windows 3.0” da Micro- 
soft. O "ORACLE TOOLS 
AND DATABASE” apresenta 
portabilidade e conectividade 
sem precedentes à dimensão da 
empresa. Aplicações escritas na 
versão 5 do ORACLE são 
convertidas e correm sem al- 
terações na versão 6. 

Mais informações através da 
ORACLE. Tel. (01)-301 01 42. 


COMPACTAÇÃO DE 
DADOS VALORIZA SIS- 
TEMAS DE BACKUP 


A H.S:C.Ibérica anunciou o 
lançamento do "software de 
compactação de dados” File- 
Safe 5.2.3-TD da Mountain 
Networks Solutions, Inc., um 
produto que permite duplicar a 
capacidade dos sistemas de 
backup deste importante fabri- 
cante do mercado de ar- 
mazenamento de massa. 

O software FilcSafe 5.2.3-TD é 
bascado no algoritmo standard 
STAC DC221, que oferece a 
flexibilidade de "fazer a ponte” 
entre os algoritmos de hardwzre 
ec sollware. 
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NOTÍCIAS 


A INFORMIX LANÇA 
SMARTWARE II V. 1.5 


Durante os últimos dois anos, a 
Informix estudou cuidadosa- 
mente as necessidades dos utili- 
zadores de Smart , de forma a 
poder identificar as principais 
caracteristicas que deveriam ser 
introduzidas neste upgrade de 
Smartwarell. 

O resultado foi este: 

- Operação "protected mode” 
para suportar memória acima 
de IMb, o que significa que os 
utilizadores podem dispor até 
160Mb de memória RAM, em 
Base de Dados, Folha de 
Cálculo e Processador de Texto. 
- 70% de aumento de velocidade 
de processamento nos diferen- 
tes módulos. 

- Compatível com Windows 3.0 
da Microsoft. 

- Novos gráficos 3-D de alta 
qualidade, incluindo opção para 
o utilizador definir os 
parâmetros por defeito. 

- Uma opção de "Quick Graph 
Define” muito fácil de utilizar, 
incluindo 20 modelos de 
gráficos pré-definidos. 

- Novos comandos na Base de 
Dados e na linguagem de pro- 
gramação ( SPL ) oferecendo 
maior cficácia e flexibilidade 
ao programador. 

- Configuração de impressoras 
não “standard” através de 
menus. 

- DataLink que permite aos 
utilizadores de SmartWarcll 
aceder à base de dados SQL da 
Informix. Isto significa que os 
utilizadores sem experiência 
podem agora definir “queries” 
(pesquisas) através desta carac- 
tcrística fácil de usar. Para util- 
izar Smart- DataLink, tem de se 
adquirir INFORMIX-NET. 
Este produto é comercializado 
entre nós pela EPLOGOS. 
Contacto para mais detalhes: 
Tel.: (01 )- 67 02 23. 


TALKMAN 2 - SOFT- 
WARE DE COMUNI- 
CAÇÕES INTEGRADAS 


Este software permite que a 
mesma estação de trabalho 
possa ser integrada no Sistemaa 
de Integração Global da em- 
presa, possibilitando o acesso 
simultânco ( Multitask) ao 
conjunto das bases de dados 
existentes: Locais, departamen- 
tais ou centrais, em ambiente 
Multi-Construtor, mediante 
qualquer arquitectura de rede. 
O TALKMAN 2 confere cr- 
gonomia WINDOWS às apli- 
cações locais ou distantes, 
através de simples criação de 
cenários de Interface Gráfico 
Utilizador Final, o que permite, 
por exemplo, a tradução de uma 
aplicação sem a mesma scr 
minimamente modificada. 
Este software é a evolução tran- 
quila e em segurança dos Sis- 
temas de Informação em Ar- 
quitectura Centralizada para os 
Sistemas Cooperativos. 


UM PORTÁTIL COM 
DISCOS AMOVÍVEIS E 
QUE É UM POTENTE 
386SX - O EPSON NB3s. 


O NB3s é o mais pequeno 
computador portátil da EP- 
SON., com 2,6Kg e formato 
A4, bascado num microproccs- 
sador Intel 386SX, a 16 MHz, 
estando preparado para a insta- 
lação de um co-processador 
arilmético 1387SX, a 16 MHz. 
Com uma memória base de 1 ou 
2 MB ( cxtcnsiívcl a 5 MB ), 
possui uma unidade de disk- 
cttes de 3” 1/2 ( de 1.44 MB), 
podendo ser equipado com um 
disco amovível de 20, 40 ou 60 
MB. Para mais pormenores 
contacte: Tel.(01)-759 49 17. 


Turbo CADmate SBus DA 
XEROX ENGINEERING 
SYSTEMS. 


O Turbo CADmate SBus é o 
plotter clectrocstático de baixo 
custo que permitirá aos utili- 
zadores de Estações Gráficas 
Sun SPARC station, seja em am- 
biente stand-alone ou em rede, 
c a trabalhar numa vasta gama 
de aplicações ( Mecânica CAD, 
CAEE ), uma velocidade de plot 
até 15 vezes superior aos plot- 
ters de cancta tradicionais, e a 
um custo por cópia considcrav- 
clmente inferior. 

O novo produto consiste num 
plotter electrocstático de alta 
resolução Turbo CADmmate 
com uma placa VPI SBus "plug- 
in”, a qual se ajusta facilmente 
cm qualquer SPARCstation | 
ou |+ de modo a permitir aos 
utilizadores SUN o acesso ime- 
diato à gama completa de 
funções plotting do CADmate. 
O sistema oferece significali- 
vas poupanças sobre plottcrs 
alternativos, seja de cancta ou 
de transferência termica. 

Este plotter oferece um con- 
junbto de novas caracteristicas 
incluindo escalas de cinzento, 
“rasterização” de software 
HPGL ec HPGL/2, comprimento 
de plot ilimitado e um sofisti- 
cado utilitário DESQview que 
possibilita ao utilizador a pcr- 
muta entre qualquer package 
de CAD. Tem uma resolução 
próxima do plotter laser, de 300 
pontos por polegada, e aceita 
uma vasta gama de diferentes 
“media” a uma largura de 36 
polegadas. 

À sua grande resolução tornam- 
no ideal para aplicações detal- 
hadas, aumentadas pela possi- 
bilidade do sistema de assinalar 
sombras de cinzento, e espes- 
sura de linhas variáveis. 

Para máxima conveniência, 
Turbo CADmate funciona sem 


o apoio do utilizador, sendo o 
tamanho do desenho apenas 
limitado pelo comprimento do 
rolo utilizado e o espaço para o 
disco disponivel no computa- 
dor centarl.O plotter pode pro- 
duzir outputs em papcl opaco, 
vellum, translucidos e de 
polyester.A “media” pode ser 
facilmente colocada pela parte 
frontal do equipamento e um 
painel de comando de fácil utili- 
zação simplifica as operações 
para operadores casuais. 

O formato compacto da unidade 
e o baixo nível de ruído possi- 
bilita aos utilizadores a sua 
instalação no local mais con- 
veniente, climinando a neces- 
sidade de uma sala especifica 
de computador ou plotter. 
Turbo CADmate ocupa uma 
area equivalente à de um plotter 
de canetas e pode ser mais facil- 
mente transportado do que 
qualquer plotter clectroestatico 
compacto. Mais informações, 
através da DATEC .. 

Tel. (01) 549440. 


« TrackMan Portable » 
UM MOUSE VERSÁTIL 


O "TrackMan Portable” é um 
“mouse” para sistemas do tipo 
“laptop” e “notebook”, tendo 
sido concebido por forma a 
poder ser utilizado quer com a 
mão esquerda, quer com a dire- 
ita, dando seguimento à filosofia 
da LOGITECH de conceber 
"mouses" que se adaptem a 
todos os tipos de utilizadores, 
compreendendo assim as ne- 
cessidades dos «canhotos». 
Os três botões de que dispõe, 
estão colocados de forma a 
adaptarem-se à posição natural 
dos dedos. 

Estes “mouses” são comerciali- 
zados pela H.S.C. Ibérica. 
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HOLLYWOOD - NOVO 
SOFTWARE DA IBM 


O OLLYWOOD é um poder- 
oso produto de software para 
apresentações gráficas, que 
permite aos profissionais de 
negócios criar facilmente apre- 
sentações de elevada qualidade, 
sob a forma de transparências, 
diapositivos ou filmes. 

Este software proporciona um 
sistema integrado de matrizes e 
esquemas de cores, com fontes 
de caracteres de grande var- 
icdade de escalas, sofisticada 
capacidade de apresentação 
visual e , também, poderosos 
instrumentos para elaboração 
de gráficos, desenho e pintura. 
O utilizador deste programa 
pode importar folhas de cálculo 
múltiplas, elaboradas em Lotus 
|-2-3 ou Microsoft Excel, es- 
tabelecendo facilmente elos de 
ligação que permitem manter 
actualizados os dados de apre- 
sentação. É possível, com este 
programa, obter gráficos de 
dados, tais como o de barras, de 
linhas, de pontos, de àrca, pic e 
outros. O HOLLYWOOD , que 
requer um computador pessoal 
IBM, PS/2 ou compatível com 
o processador 80286 ( recom- 
enda-se o 386 ), opcra com o 
sistema operativo DOS 3.3 ou 
superior e com o Microsoft 
Windows 3.0. 


NOTÍCIAS 


aceder remotamente a vários 
“hosts” ASCII, (por exemplo, 
através de uma rede X.25 de 
comutação de pacotes), podem 
agora fazê-lo, de uma mancira 
transparente, debaixo do Win- 
dows 3.0.Este driver para Win- 
dows da Eicon Technology 
permite que aplicações de outros 
fornecedores, em ambiente 
Windows, possam aceder facil- 
mente a redes X.25, a partir de 
redes locais, sendo assim um 
precioso complemento para as 
comunicações em ambiente 
Windows. A placa EiconCard é 
uma placa de comunicações 
inteligente, que se instala num 
PC duma rede local. 

Funciona como um gateway 
X.25 para todos os produtos 
SNA da Eicon Technology, 
incluindo o "Acess for Win- 
dows” ( 3270 Conncclivity), e 
para bridges NetBIOS e Nct- 
Ware, proporcionando comu- 
nicações de dados a alta 
velocidade numa workstation 
não dedicada. Este novo produto 
suporta diferentes packagcs, tais 
como:- Advanced Link para 
MS-DOS da HP; Business 
Session for Windows da 
Tymlabs Corp., Crosstalk para 
Windows da DCA;KEAterm 
420 da KEA Systems Ltd; 
Reflection | para Windows da 
Walker, Richer & Quinn Inc.; 
etc. 


NOVO PRODUTO DA 
EICON TECHNOLOGY 


Esta empresa, representada em 
Portugal pela Década, anunciou 
recentemente um novo produto 
denominado “Third Party 
Emulation Support ” ( Interac- 
tive Terminal Interface, ou ITI) 
para Windows 3.0. 

Os utilizadores com neces- 
sidade de, a partir de uma LAN, 


PASSAGE DA PERSOFT 


Especialista em produtos de 
concxão de sistemas, a Persoft 
continua a criar poderosas 
conexões para ulilizadores de 
computadores pessoais em 
ambientes profissionais, sendo 
o PASSAGE um produto que 
possibilita a estações de tra- 
balhos integradas em redes 
Token Ring aceder, à vclocida- 


de total da rede, a sistemas 
centrais ( hosts ) VAX/VMS ou 
UNIX integrados em redes 
Ethernet. 

Concebido para utilização com 
o conhecido produto da Persolt 
SmarTerm ( tanto na versão "file 
servcr” como com a "stand 
alone” ), o PSSAGE dá às es- 
tações de trabalho incluídas em 
redes Token Ring acesso sim- 
ultânco a sistemas centrais DEC 
LAT ou UNIX, funcionando 
com TCP/IP. Serve igualmente 
como ponte NetWare PX, que 
permite a estações de trabalho 
Token Ring aceder a todos os 
serviços de “servers” NetWare, 
tanto em redes Ethernet como 
Token Ring,O PSSAGE inclui 
software, uma carta de rede 
Token Ring e uma carta de rede 
Ethernet, e corre num IBM AT 
ou compatível dedicado, para 
estabelecimento da conccxão 
entre as duas redes.Este pro- 
duto é comercializado pela 
H.S.C Ibérica. 


AST Premium II 486SX/ 
20 DISPONÍVEL NO 
MERCADO NACIONAL 


O novo computador AST trans- 
porta todo o poder do micro- 
processador 1486 para uma 
gama de equipamentos desti- 
nada a utilizadores que recor- 
rem a aplicações e sistemas 
operativos sofisticados. 
Permitindo a instalação dum co- 
processador Intel 487SX, para 
aplicações que requerem cálcu- 
los de vírgula flutuante, o AST 
Premium 486SX/20 está dis- 
ponível em três versões (mode- 
los 3V, 83V e 213V), todos 
com 4MB de memória “stan- 
dard”, expandível a 1I6MB na 
placa/mãe. 

Sobre estes novos modelos AST 
poderão ser solicitadas mais 
informações à H.S.C.Ibérica - 
Divisão de Sistemas, através dos 
telefones: 

-(01)- 797 5253-797 47 85 


IMPRESSORA DFX-8000 
DESTINADA A MÉDIOS 
E GRANDES SISTEMAS 


O sistema de impressão matri- 
cial de 9 + 9 agulhas permite 
uma velocidade de Supper- 
prova de 1066 cps ( caracteres 
por segundo), tornando a im- 
pressora EPSON DFX-8000 
compeliliva com outras de sis- 
tema de topo de gama, com a 
vantagem adicional de exccutar 
Letra de Qualidade (NLQ) à 
velocidade de 102 cps ( elite). 
Equipada com interfaces par- 
alelo e séric RS 232 C, a DFX- 
8000 mantém em memória ( em 
modo ESC/P) os caracteres pré- 
definidos, mesmo após o desli- 
gar da impressora. A emulação 
IBM Proprinter é fomnccida de 
origem.Informações: 759 49 17. 


Esta nova ferramenta de soft- 
ware facilita aos programadores 
de Cobol constituirem intcr- 
faces gráficas com o utilizador 
(GUI's). Emulando vários 
modos gráficos e permitindo 
portabilidade através de apli- 
cações, o novo produto de 
desenvolvimento de software 
cria sets de écrans bascados em 
computadores pessoais inde- 
pendentemente do código do 
programa. A utilização do 
"Dialog System 2.0”, tornará os 
programas mais pequenos e 
[fáceis de codificar. Este produto- 
foi lançado no mercado mun- 
dial pela MICRO-FOCUS, líder 
em compiladores e ferramentas 
produtivas em Cobol, represen- 
tada em Portugal pela Loja dos 
Computadores. 
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Salão de Informática, Ofimática e Tecnologias de ponta. 


Como é do conhecimento dos leitores, este acontecimento 
informático decorreu de 16 a 19 de Maio no Parque de 
Exposições de Braga, mais própriamente no pavilhão 
gimnodesportivo ( um dos mais modernos da Europa) e um 
espaço digno de receber acontecimentos deste tipo na região 
em que se insere. 

Considerando a dimensão do espaço e o número de exposi- 
tores presentes, que ocuparam 80% da superfície do pav- 
ilhão, poderemos dizer que a INFORNOR esteve bastante 
agradável, tendo havido pelo menos duas grandes empresas 
que acabaram por não participar pela impossibilidade de 
terem os seus stands prontos à data de realização de feira. 
Quanto à afluência de público, não podemos dizer que foi um 
êxito mas temos de ter em conta que em simultâneo com a 
feira decorria a semana académica de 14 Universidades da 
região, o que dispersou bastante os visitantes. 

No entanto, na opinião dos expositores, o público que 
acorreu à INFORNOR justificou o investimento efectuado, 
abrindo boas perspectivas para uma próxima realização 
deste evento, talvez já no próximo ano. 

Quanto a nós, pelo que observámos, salvo algumas pequenas 
deficiências de organização ( sempre normais a quem dá os 
primeiros passos numa iniciativa deste género e úteis para 
que de futuro se não repitam ) a INFORNOR mereceu nota 
positiva e quase poderemos afirmar que conquistou o direito 
de se juntar à INFORPOR e à ENIC, ainda que com menor 
dimensão e objectivos diferentes, nesta fase. 


ALGUMAS EMPRESAS E PRODUTOS EXPOSTOS: 


BIT - Soluções de Infor mática 
Computadores : 
ACER * EPSON * TWINHEAD * SHINE 
Impressoras: 
EPSON 
Terminais de controle: 
TEMPUS 
PRESENÇA 
CRONOGEST 
Unidades de alimentação: 
ALFATRÓÔNICA 
Software específico 
F3M 


CALTRI - Comércio Electrónica e Infor mática Ldº. 
Computadores: 
HYUNDAY * OSICOM * BONDWELL (portátil) 
TEXAS INSTRUMENTS ( portátil ) 
Impressoras: 
SEIKOSHA 
TEXAS INSTRUMENTS LASER 
Telefax: 
AVATEX 


COPIMINHO - Equipamentos de Escritório Ldº 
Fotocopiadores: 
LANIER 
Telefax: 

LANIER 

Máquinas de escrever: 
BROTHER 

Relógios de ponto: 
AMANO 
Computadores: 
TANDON 


COMPORSIL- De Feliciano José Martins da Silva 
Computadores: 
TWINHEAD 
Impressoras: 
EPSON 
UMAX 
Mesas digitalizadoras: 
GENIOUS 
Scanners: 
UMAX 


DATABRAGA - Edições Culturais Ldº 
Cursos de Informática 


DATOS - Sistemas Mecânicos e Electrónicos Ldº 
IMPORTADOR 


Computadores: 
TOSHIBA 
Impressoras 
TOSHIBA 
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DIGIFONE - Telecomunicações Ldº. 
Telefax: 
MURATA 
Centrais telefónicas: 
NORSTAR 
MERIDIAN 


EMPIS - Informática e Serviços Ldº. 
Computadores: 
GOLDSTAR 
Impressoras: 
EPSON 
LASER HEWLETT PACKARD 
Scanner: 
LASER HEWLETT PACKARD 


EQUIBRAGA- Equipamentos de Escritório Ld*. 
Computadores: 
PHILIPS 
Impressoras: 
PHILIPS 
OKI 
Centrais telefónicas: 
PHILIPS 
BITRONIZ 
Telebip: 
MOTOROLA 
Telefax: 

PHILIPS 


HARDISOFT-Consultoria e Equip. Informáticos 
Computadores; 
SAMSUNG 
Monitores: 
SAMSUNG 
NEC 
Impressoras: 
NEC 
Discos rígidos: 
SEAGATE 


J.G.Componentes 
DISPLAYS DE MENSAGENS 


L.V.M. 
Computadores: 
LVM 
Software: 
CNO 
FIG - Desenvolvido pela Infor-Rubras, Ld* 
Windows 


LIDEL - Edições Técnicas Ldº 
Livrtos Técnicos 
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MAQUITEC - S.T.E.E.L. 
Computadores: 
COMMODORE 
Impressoras: 
COMMODORE 


MATIEX 81 - Soc. de Importação e Exportação, Ldº. 
Sistema de alimentação ininterrupta ( UPS ) 
Gama LANPOWER 


MÓDULO - Condutores Eléctricos Especiais Ldº. 
Cabos para informática 
Multicondutor es 
Coaxiais 
Cabling system 
Conectores BNC, N.T. 
Cabos telefónicos 


PHONOTEL TELECOMUNICAÇÕES 

Centrais telefónicas: 

ALCATEL 

SIEMENS 

Telefax: 

ALCATEL 

Telefones: 

ALCATEL 

SIEMENS 

Gama completa G.E. 


SIMAC, S.A. ( APPLE CENTER MINHO ) 
Software: 
ICON - Software de Gestão para Macintosh 
Aplicações: Multimédia; Música; Design; 
Arquitectura; C.Civil; etc. 


REPRESENTAÇÕES JOSÉ PEREIRA, S.A. 
Computadores: 
SANYO 


SILVA ROSAS, Ldº. 
Impressos em continuo: 
TIPAVE 


T'SI - Tecnologia e Soluções Informáticas, Ldº. 
Software próprio. 
Folha de cálculo - SILK 
Computadores: 
MSG 
CAF 
Impressoras: 
SEIKOSHA 
OLIMPIA 
Unidades de alimentação SEDOM 
redes locais RPTI 


TRIUDUS - 
Hardware e Software 


TOP - Soluções de Informática 
Computadores e Periféricos: 
HEWLETT PACKARD 
Software: 
ENGENHARIA CIVIL (Calc. Estruturas ) CYPE 
ARQUITECTURA PC - BAT 
CONSTRUÇÃO CIVIL ( Orçamentação e controle 
de obra ) ORCOBRA. 


IMPORCATE - Equip. Eléctricos e Electrónicos Ld*. 
Unidades de alimentação ( UPS ) 


Para além destas empresas, participaram também o INSTI- 
TUDO DA JUVENTUDE ; Projecto Minerva - Núcleo da 
Universidade do Minho ; SIPARE - Engenharia e Tele- 
comunicações ; os jornais : ”O Comércio de Braga”; 
Semanário Minho; Revistas: « RS232 - Informática». 
Desconhecedores, até à realização da INFORNOR, da 
implantação “Informática” em BRAGA, surpreendeu-nos o 
facto de estarem presentes 19 empresas actuantes nesta 
cidade, o que deixa prever a existência de muitas mais. 
De salientar, também, a realização de Colóquios sob o tema 
” À INFORMÁTICA E O ENSINO” que tiveram como 
Moderador a Dr? Leonor Barroca , Directora do Curso de 
Licenciatura em Engenharia de Sistemas da Universidade 
do Minho e a participação do Prof. Doutor Altamiro Ma- 
chado , responsável pelo Projecto Minerva núcleo do Minho, 
do Eng* Alberto Amorim, Director da Escola Profissional de 
Braga, o Dr.Rui Gaspar, Assessor Pedagógico da Comissão 
de Gestão do Programa Inforjovem e por último o Engº 
Manuel Braga, coordenador dos Cursos da Área de Serviços 
do Centro de Formação Profissional de Braga. 

Para além da semana académica que dispersou muito público, 
também o tempo, excessivamente quente, fez prevalecer o 
desejo de uma deslocação às praias mais próximas, mas 
mesmo assim a INFORNOR 91 esteve muito próximo do 
nível desejado pelos organizadores, conscientes dos con- 
tratempos assinalados e do facto da população desta zona 
ainda não estar suficientemente motivada a participar em 
acontecimentos deste género. 

Para que Braga e toda a região circundante possa acompan- 
har mais de perto as novas tecnologias, o que se torna im- 
perativo, foi importante a realização deste certame, ficando- 
nos a certeza de pleno sucesso numa próxima edição , quase 
certa no próximo ano. 

A zona norte do país, fortemente industrializada, é um mer- 
cado que necessita urgentemente de uma maior informati- 
zação para se tornar mais rentável e, consequentemente, 
mais competitivo perante os desafios que se lhe colocam 
face a CEE. 
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Perante a hegemonia de Lisboa e Porto , quanto à realização 
de feiras de Informática, a NORTARTE- Publicidade Ldº 
(empresa organizadora da INFORNOR 91 ), demonstrou 
que existe espaço para este tipo de empreendimentos, desde 
que devidamente programados, em conjunto com as empre- 
sas interessadas. 

Também foi extremamente positivo verificar que alguns dos 
expositores se preocuparam em colaborar com a organi- 
zação, dando sugestões para a próxima INFORNOR e apon- 
tando o que, no seu entender, esteve menos bem. 

Todos compreenderam que organizar um certame destes não 
foi tarefa fácil porque muitas empresas, embora desejas- 
sem estar presentes, não puderam fazê-lo por questões de 
falta de tempo para elaboração dos stands e orçamentais. 
Mesmo assim, estiveram presentes 32 empresas que ao 
longo de quatro dias possibilitaram aos visitantes tomar 
contacto com o que se comercializa no nosso mercado. 
Para os organizadores, esta experiência foi o “balão de 
ensaio” para a INFORNOR a realizar, possivelmente, no 
próximo ano. 

As duas mais importantes feiras de informática realizadas 
entre nós - INFORPOR e ENIC - de certo também começaram 
por ter menor dimensão e impacto junto do grande público 
e empresas, crescendo e aperfeiçoando-se ano após ano e o 
mesmo acontecerá com a que agora se realizou em BRAGA. 
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O regresso do BITinho 


na INFORNOR 91 


Depois de uma longa ausência, por ordens do Chefe de 
Redacção, aqui estou de novo mais irreverente do que nunca 
e graças à “pressão” exercida sobre ele pelos Leitores de 
Braga, por ocasião da INFORNOR 91. 
De facto, tudo ficou surpreendido quando chegámos a esta 
linda cidade nortenha. Enormes cartazes davam-nos as Boas- 
Vindas e alguns deles comoveram-me bastante...porque 
diziam assim: 

- O BlITinho na Redacção da RS232, Já!!! 

- Queremos o BITinho no activo !!! 

- Viva o BITinho! 
Fiquei radiante por este acolhimento mas muito mais con- 
tente fiquei por ver a cara do Boss, estupefacto, por ver que 
os leitores ainda se lembravam de mim. 
Porque nunca perco uma oportunidade de dar uma “boca”, 
virei-me para o Boss e disse-lhe baixinho: 
- Por esta é que não esperava, pois não chefinho? 
Apesar de ser noite e o Boss usar barbas, mesmo assim 
pareceu-me vê-lo ficar vermelho de raiva e se não me 
baixasse tão rápidamente...zás...tinha comido um estaladão. 
Passado este ligeiro incidente, fui desafiado pelos estudan- 
tes para a farra, entre gritos de ” Viva o BITinho”. 
Já de madrugada e meio zonzo de sono...entrei na Suite mas 
não consegui passar despercebido pois o Boss consegue ser 
mais ”traquinas” do que eu e tinha posto o balde do lixo 
apoiado no cimo da porta do meu quarto...estão a imaginar 
o barulho?Chefe é Chefe e tem sempre uma maneira de nos 
controlar...mas não é mau rapaz, eu é que lhe dou cabo do 
juízo...como por exemplo no dia seguinte em que dormindo 
profundamente o obriguei a ir montar o Stand sózinho... 
Já era bastante tarde quando apareci na INFORNOR 91 mas 
ainda faltavam três dias para ela acabar...tendo tempo sufi- 
ciente para efectuar a minha “reportagem”. 
Dei uma voltinha para ver que firmas estavam presentes e 
conclui que a feira prometia ser boa. Falei com os exposi- 
tores, recolhi opiniões e concluí que a INFORNOR 91 
promete vir a ser uma grande feira, na região norte. 
Mas já vos conto mais coisas...tenham calma. 
Recordam-se de quando eu comecei a escrever na «RS232»? 
Nessa altura alguém se lembrou de realizar uma feira mas 
aquilo, de facto, não correu nada bem...mas esta INFOR- 
NOR 91 mostrou, embora com ligeiras deficiências que 
serão corrigidas, como é que as coisas devem de ser feitas. 
Parabéns para a empresa que a organizou !!! 
Parabéns, pessoal da NORTARTE Ld? !!! 


Ora bem...vamos lá às fófócas... 
Se quiz conquistar, de facto, o meu lugar de crítico no activo, 
tive de me esmerar e encontrar motivos que agradassem ao 
Boss...porque senão seria despedido. 
À primeira coisa que me “saltou à vista” foi a não presença 
de outras publicações da especialidade, para além da nossa 
querida «RS232-Informática». 
Armado em jornalista-detective, investiguei a fundo esta 
questão e consegui saber que essas outras publicações não 
compareceram por NÃO ACREDITAR na INFORNOR 91. 
Meus amigos... 
Será que o desenvolvimento da informática e a sua divul- 
gação só compete a alguns, ou deve ser um trabalho conjunto 
para benefício de todos” 
Será que um meio de comunicação social especializado pode 
dar-se ao luxo de omitir um acontecimento importante para 
o sector, para uma região, só porque não acredita à partida 
no sucesso desse acontecimento? 
Outro facto que nos despertou à atenção e que revoltou 
algumas pessoas que também o verificaram , foi vermos uns 
senhores de uma empresa de Braga ( onde abundavam 
maçãs...) estarem com uma câmara de video a filmar as 
senhoras dos outros stands mas fazendo-o de forma que dava 
a entender que não tinham só a intenção de vir a fazer um 
concurso de fotogenia...dada a insistência das “filmagens” e 
o tipo de sorrisos que trocavam entre si. 
Está mal rapazes...esqueceram-se onde estavam e que re- 
presentar uma das melhores empresas do país... 
Só não houve uma “grande bronca” porque eu, BITinho, 
rezei a tudo o que era santo para que isso não acontecesse...e 
as queixosas optaram por não “manchar” o trabalho de 
quem, com tanto esforço, levou a efeito a INFORNOR 91. 
Esperemos que cenas destas não se repitam. OK malta? 
Se lhes apetecia divertir, fizessem como alguns dos exposi- 
tores que, à noite, foram para uma Discoteca dançar, ou 
"abanar o capacete”, esquecendo o seu lado «profissional» 
e ampliando o seu leque de amizades. 
Apesar do meu temperamento traquinas e irreverente, soube 
apreciar esta dualidade: Profissionalismo e camaradagem. 
Foi bonito de ver!!! Foi bom ! 
«Bem-Haja» aos que assim procederam e me deixaram par- 
ticipar no seu convívio, fazendo-me sentir ”homensinho”. 
Aos corações “destroçados” que deixei em BRAGA...a 
certeza de que voltarei em breve. Beijinhos!!! 

BITinho 


E 
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Gume. 


informática 
LOJA -1 LOJA - 2 * Departamento Profissional 
R. Elias Garcia, 362 - D - 2700 AMADORA Rua D.Pedro IV, 12 - 2745 QUELUZ 


C.C.Babilónia, Loja 70 -Tel.:492 14 31 Tel.: 436 15 38 - Fax.: 436 10 08 


IBM 
LIDERA A INDUSTRIA NA TECNOLOGIA 
DOS PROCESSADORES 
1486 


À IBM , liderando a indústria na tecnologia 1486, lançou os 
primeiros computadores que incorporam o novo micro- 
processador da Intel Corporation. 

Paralelamente, a IBM enriqueceu os modelos 90 e 95 XP 486 
da família PS/2 com maiores memórias de base e capacidade 
de arquitectura Micro Channel, capacidades de memória 
avançada e optimização de gráficos. 

Tal como os outros processadores 1486, os novos 486SX 
integrados dispõem de uma memória cache de 8 kilobytes e 
um endereçamento de 32 bits a 20 MHz. 

A IBM disponibiliza opcionalmente o processador 
matemático 487 SX-20 MHz, também recentemente anun- 
ciado, aos utilizadores que requeiram essa função. 

À flexibilidade de arquitectura dos modelos 90 e 95 do PS/ 
2 permite à IBM fornecer rapidamente aos seus utilizadores 
a mais recente tecnologia 1486. 

Estes sistemas podem ser facilmente actualizados de 20 para 
25 ou 33 MHz, ou mesmo para a nova tecnologia 1486, com 
a segurança de que são salvaguardados os investimentos 
feitos pelos utilizadores em equipamentos PS/2. 

Tal como noutros elementos das famílias dos modelos 90 e 
95, os sistemas 486 SX têm a arquitectura dos ”Processador 
Complex” de placas. Estas placas, de tamanho normalizado, 
estão inseridas num pequeno slot da placa do sistema e 
alojam o microprocessador, o controlador de memória e o 
controle das ligações de canal. 

Deste modo, os sistemas de 20 MHz podem ser facilmente 
adaptados, por forma a migrarem para as actuais e futuras 
tecnologias 1486, por meio da instalação de um novo con- 
junto de placas. 

Todos estes novos sistemas, que têm uma memória base de 
4 ou 8 MB expansíveis a 32 MB de alta velocidade, incluem 
um adaptador de canal SCSI com 512K de memória cache e 
32-bit para as operações de entrada e saída (1/0 ). 


Este adaptador facilita a ligação de um número de disposi- 
tivos periféricos que pode ir até sete, através de um único 
slot. Os modelos 90 de secretária estão configurados com um 
disco rigido SCSI de 80, 160, 320 ou 400 MB. 

Estes novos sistemas, tal como os outros modelos 90, 
incluem três slots de expansão e quatro compartimentos para 
dispositivos de armazenamento de dados, três dos quais 
podem ser usados para discos fixos de 400 MB. 

Os modelos de chão 95 XP 486-AGP e AGF permitem a 
elaboração dos mais aperfeiçoados gráficos e possuem a 
memória e dispositivos característicos da família dos mode- 
los 95 dispondo de seis slots de expansão e sete compar- 
timentos para dispositivos de armazenamento de dados. 
Estes novos modelos 95 possibilitam o controlo de redes de 
comunicações complexas e estão configurados com um 
disco fixo de 160 ou 400 MB podendo, como opção, incor- 
porar outros discos SCSI de 80, 160, 320 e 400 MB. 
Cinco dos compartimentos para memória podem ser usados 
para ligar discos fixos internos, permitindo que a capacidade 
total em disco possa atingir 2 GB. 

Outros dispositivos de armazenamento de dados, tais como 
a unidade CD-ROM, a disquete de 5 1/4 polegadas ou uma 
unidade de bandas, podem ser instalados nos restantes 
compartimentos dos modelos 90 e 95, permitindo uma 
capacidade de memória interna ainda maior. Os novos 
modelos operam com os sistemas operativos 08/2, DOS 3.3 
e 4.0. AIX PS/2 1.2. 1., Nouvelle Netware 2.2 e 3.Il e 
Banyan Vines/486 4.0.A IBM também anunciou três novas 
configurações do modelo 95. Os novos PS/2 modelos 95 XP 
486-AJF e AFK usam um processador de 25 e 33 MHz i486, 
respectivamente, e incluem adicionalmente um disco fixo de 
400 MB com uma memória base de 8 MB. O novo PS/2 
modelo 95 XP 486.V01 tem um processador de 33 MHz com 
400 MB de disco e 16 MB de memória base. 


E 


12 « R$232 - Informática » 


NETMODEM/E 
Possibilita comunicações entre sistemasa 
IBM e Macintosh 


A Shiva Corporation, lançou o NetModenvE, um server de 
redes de comunicações, que permite a sistemas IBM ( e 
compatíveis) e Macintosh aceder de forma segura e transpar- 
ente a redes de dados Ethernet NetWare e Apple Talk. 

O NetModen(E é um sistema stand-alone que inclui uma 
interface Ethernet integrada e um modem de 9600 bps, que 
suporta V.32bis e V.42bis, sendo conectável a qualquer rede 
Ethernet standard. 

Permitindo a utilizadores remotos aceder a redes de dados 
como se os seus computadores estivessem directamente 
integrados nas mesmas, o NetModenvE também possibilita 
aos utilizadores autorizados aceder - através de um simples 
telefone - a “hosts” ou bases de informação remotas e 
estabelecer ligações entre diferentes redes de dados geo- 
gráficamente dispersas. 


O NetModenyE suporta tanto o protocolo Novell NetWare 
como Apple Talk e adapta-se automáticamente ao protocolo 
em utilização, sem necessidade de configuração por parte do 
utilizador.Uma facilidade importante apresentada por este 
server é que pode enviar “pacotes” de informação standard 
entre redes de dados e “sites” distantes. Isto permite a 
computadores pessoais remotos correr aplicações gráficas 
como Microsoft Windows, e ainda ter acesso aos serviços de 
redes de dados e a outra informação. 

O NetModenvE foi especialmente concebido para grupos 
profissionais e é o primeiro produto que oferece suporte 
transparente quer para computadores IBM e compatíveis, 
quer para sistemas Macintosh. É compatível com aplicações 
DOS, Macintosh e Windows. 

Este produto é representado entre nós pela H.S.C.- Ibérica. 


ALDUS FREEHAND 3.0 
Disponível para Macintosh 


A H.S.C.-Ibérica anunciou a disponibilidade em Portugal da 
versão Inglesa do Aldus FreeHand 3.0, a nova versão do 
programa de desenho profissional para Macintosh da Aldus 
Corporation. 

Às novas funções incluem as seguintes paletes móveis, em 
Janela com cores de linhas e campos, estilos gráficos e layers 
que o artista e o desenhador utiliza ao criar uma ilustração: 
* Colors, que permite que as trocas de cor sejam facilmente 
realizáveis; 

* Styles, que possibilita aos utilizadores combinar cores, 
linhas, campos e efeitos de tons médios para criar um estilo 
específico que se possa aplicar repetidamente a outras ilus- 
trações; 

* Layers, que organiza os elementos de uma ilustração, para 
simplificar o processo de trabalho, ajudar o artista a centrar- 
se nos elementos de prova de uma ilustração e facilitar as 
modificações em janela.Os controlos de texto do FreeHand 
também foram melhorados. Os utilizadores podem con- 
verter os caracteres em formatos editáveis, posicionar auto- 


máticamente o texto em volta das partes superior e inferior 
de uma elipse e colocá-lo verticalmente. Os efeitos espe- 
ciais, incluindo zoom e textos de sombra, são agora viáveis 
em janela. Entre as funções que permitem ganhar tempo no 
FreeHand 3.0 inclui-se a possibilidade de criar zonas trans- 
parentes dentro dos objectos, com um único comando, e 
misturar objectos e cores automáticamente. 

O modo Preview mostra cada elemento com as suas cores 
reais. o Modo Keyline mostra só os contornos dos elementos 
para trabalhar com maior rapidez. A experimentação cria- 
tiva é mais fácil com comandos Undo e Redo até 99 
passos.Para completar a produção, o Aldus FreeHand 3.0 
inclui um separador de cor, para obter separações em quad- 
ricromia da ilustração ( integral ou parcial). 

Estando disponível em Portugal por 98.500$00, os utili- 
zadores registados de versões anteriores podem actualizá-lo 
por 18.500800. 

Para mais esclarecimentos poderá o leitor contactar pelos 
telefones: 797 52 53 - 797 47 85- rede de Lisboa. 
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PROGRAMAÇÃO DE UM ASSEMBLADOR EM PASCAL 
NR. 3 


Por: Dr. Jorge Giro 


Vamos, neste número, intercalar a publicação da primeira | incluiremos em números posteriores. 

parte do código fonte de PASM. 

Em números seguintes publicaremos os ficheiros de in- Os programas divulgados nesta série podem ser obtidos 
clusão PASM.001 e PASM.002 assim como o ficheiro de em suporte magnético ao preço unitário de 1.500$800 (3 1/ 
dados PASM.DAT. Pode assim o Leitor tomar um primeiro 2” ou 5 1/4”) enviando cheque ou vale postal a: 
contacto com o código fonte e seguir, porventura, com maior - - Jorge Giro - Qt'da Piedade, Lote 40, 6º C 

eficácia as explicações ao funcionamento do programa que 2625 Póvoa de Sta Tria 


COMPUTADORES 
E LAN STATION 


PROCESSADORES 286 e 386 
DRIVE 3 1/2 1.44 MB 


DISCO RÍGIDO 
DE 40 MB A 120 MB 


VELOCIDADE 12/16 MHz 


MEMÓRIA RAM 
1 MB EXPANDÍVEL A 5 MB 


5 PORTAS 
SUPER VGA 


Parac 


UTILIZE O CRÉDITO IMC 


COMPUTADORES 


IMG - Indústria, Montagem e Comércio de Computadores, Lda. MS 


4 
PRAÇA JOÃO DO RIO, 9 - 3º ESQ. « Telefs. 848 00 01 - 848 2123 SEMPRE MAIS ALÉM. 


FAX 848 00 40 e 1000 LISBOA 
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( Turbo Pascal TM 4.0 ou superior ) 


( PASM.PAS 
Ficheiros relacionados: 


PASM.00] 
PASM.002 
PASM.DAT 


($R- , V- 3 S- ) 
uses dos; 
const 


LOGO = "PASM (c) Jorge Giro; 
VERSION = Versão 1.0 1991"; 


(81 PASM.001) 
(81 PASM.002) 


Dee 2 


(* PROCEDURE OUTPUT | 


Dea À 


procedure Output; 


var |: Integer; 


EEE E 


(* PROCEDURE INLINEOUTPUT “) 


er 


procedure InlineOutput; 


var 
I: Integer 


begin 
if EQUFLAG then begin 


Write(INLFILE, “(=":3); ( =XXXX ) 
Write( INLFILE, Hex(DVALI)): 
Write( INLFILE, “)); 
WriteCINLFILE, “ :17): 
end 
else 
begin ( código ) 


( bytes 1-6) 
l:=1; 
Write( INLFILE, * '); 
while (1 <= 6) do 
begin 
if (1 <= OBJLEN) then 
begin 
Write( INLFILE, INLCHAR, '$'. HexByte(OBJ[ 1])); 
INLCHAR: =SLASH; 
end 
else 
Write(INLFILE, "':4); 
| := Succ( 1); 
end; 
end; 


( Código fonte ) 
if Length( INPLINE) > O then begin 
Write( INLFILE, Copy(INPLINE, 1, PAGEWIDTH-32, 
o 
end; 
WriteLn( INLFILE); 


if (not EQUFLAG) then 
begin 
( Rest, > 6) 
while | <= OBJLEN do 
begin 
if (I mod 6) = | then 
begin 
if [> 7 then WriteLn( INLFILE) : 
Write( INLFILE, ''); 
end; 
Write(INLFILE, INLCHAR , '$', HexByte(OBJ[1])); 
| := Succ( 1): 
end; 
if (OBJLEN > 6) then WriteLn( INLFILE); 
end; 
end; 


e 


1* PROCEDURE PRINTOUTPUT *) 


dd o a a o o dn bd 


procedure PrintOutput; 


begin 
Write(LSTFILE, Hex(OLDLOCTR)); 
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Técnicas de Programação de PC's 


if DSFLAG then begin 


Write(LSTFILE, "V:2); (1XXXX ) 
Write(LSTFILE, Hex(SVALI)); 
Write(LSTFILE, "":8); 
end 
else if EQUFLAG then begin 
Write(LSTFILE, '=':2); (=XXXX ) 
Write(LSTFILE, Hex(DVALI)); 
Write(LSTFILE, "':8); 
end 
else 
begin ( Código ) 
( Bytes | - 6) 


=; 
if not GIFFLAG then Write(LSTFILE, "-*:2) 
else Write(LSTFILE, ":2); 
while (1 <= 6) do 
begin 
if (1 <= OBJLEN) then 
Write(LSTFILE, HexByte(OBJ[ 1])) 
else 
Write(LSTFILE, "':2); 
I := Succ( 1); 
end; 
end; 


( Source- Code ) 


Write(LSTFILE, LINENUM:4); 
Write(LSTFILE, "':2, Copy(INPLINE, 1, PAGEWIDTH- 
26)) ; NewLine: 


( Rest, > 6 ) 
if not(DSFLAG or EQUFLAG) then 
begin 
while | <= OBJLEN do 
begin 
if (I mod 6) = 1 then 
begin 
if (1 > 7) then NewLine; 
Write(LSTFILE, "":6); 
end; 
Write(LSTFILE, HexByte(OBJ[I ])); 
| := Succ( 1) 
end; 
if (OBJLEN > 6) then NewLine; 
end; 
end; 


begin 
for [| := | to OBJLEN do Write(COMFILE, OBJ[1 ]); 
if LISTFLAG then PrintOutput; 
InlineOutput; 

end; 


lo id ido rd La da 


(* | PROCEDURE SYMBOL TABLE OUTPUT *) 


ED E 


procedure Symbol Table Output: 
var 1: Integer; 


procedure WriteSYM( var STABLE : SYMPTR); 
begin 
if STABLE < > nil then 
with STABLE do begin 
WriteSYM(LEFTSYM); 
( Símbolos definidos pelo utilizador ) 
if H(VAL2) <> $FF then begin 
Write(LSTFILE, NAME, ““:12-Length(NAME), 
Hex(VALI): 4, "':3); 
| := Succ( 1); 
if (T mod (PAGEWIDTH div 20)) = 1 then NewLine; 
end; 
WriteSYM(RIGHTSYM); 
end; 
end; 


begin 
[= |: 
NewLine; 
Write(LSTFILE, SYMBOL TABLE DUMP: '); 
NewLine 
WriteSYM(SYM): 
NewLine; 
end; 


Rad da o ho 


(* | PROCEDURE STATUS REPORT 4) 


eee eee) 


procedure Status Report; 


begin 
if INCLUDEFLAG then Write( "M,'I ') else Write(M, 
a 
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Técnicas de Programação de PC's 


Write( "Lines processed= *, LINENUM); 
end; 


eee e e) 


(* PROCEDURE PROLOG e) 


dese ed e e 


procedure Prolog; 


Rd a do o dh 


(* PROCEDURE TITLE | 


ue e) 


procedure TITLE; 


begin 
WriteLn( LOGO ); 
WriteLn( VERSION ); 
end; 


dd ao oa aa a do do o 


(* | PROCEDURE INIT VARIABLES id 


Ra ada oa o o aa da ooo oa ea 


procedure Init Variables; 


begin 
OP := nil; SYM := nil; 
ERRS := 0; DIAGS := 0; 
PAGENUM := 0; 

end; 


Ea a À 


(* PROCEDURE OP TABLE ” 


[ee À 


procedure OP Table 


var 
CommentS : string 80; 
CH : Char; 

1: Integer; 
NUMOP : Integer 


procedure Insert OP(var NODE : OPPTR; var TREE : 
OPPTR); 


begin 
if TREE = nil then TREE := NODE 


else with NODE do 
if (CODE = TREE .CODE) 
and (SRCTYPE = TREE”. SRCTYPE) 
and (DSTTYPE = TREE . DSTTYPE) then begin 
Write(CODE, already in OP-table. Program aborted..."); 
Halt; 

end 


else if CODE < TREE . CODE then 
Insert OP( NODE, TREE”. LEFTOP) 


else 
Insert OP( NODE, TREE . RIGHTOP): 


end; 


begin 

(SL) 

Assign(INFILE, 'PASM.DAT'); 

Reset( INFILE); 

($1+) 

if IOResult < > O then begin 
Write( "Fatal Error: File PASM.DAT not found"); 
Halt; 


end; 


Tecnicas de  ToBramação de PC's 


($1-) 
Read(INFILE, NUMOP); 
Read Ln(INFILE, CommentS); 
Read Ln(INFILE, CommentS); 
for | := 1 to NUMOP do begin 
New(ACTOP); 
with ACTOP” do begin 
CODE :=""* 
Read(INFILE, CH); ( Mnemónica ) 
while CH <> BLANK do begin 
CODE := CODE+CH; 
Read(INFILE, CH); 
end; 
Read(INFILE, VALUE, DSTTYPE, SRCTYPE, OFLAG)A 
ACTOP .LEFTOP := nil; ACTOP”.RIGHTOP := nil: 
ReadLn(INFILE, CommentS); 
Insert OP(ACTOP. OP); 
end; 
end; 
($1+) 
if IOResult > O then begin 
Write( "Errors in PASM.DAT. Program aborted... ); 
Halt; 
end; 
end; 


( Comentário ) 
( Comentário ) 


Rd ooo ao o o o o o 


(* PROCEDURE INIT SYMBOL TABLE *) 


ee 


procedure Init Symbol Table; 


var CommentsS : string 80; 
CH : Char; 
I : Integer; 
DEFSYM : Integer; 

begin 
(SL) 

Read(INFILE, DEFSYM); 
Read Ln(INFILE, CommentS): 
Read In( INFILE, CommentsS); 
if Memory >= MINIMEN then 
for | := | to DEFSYM do begin 
New(ACTSYM); 
with ACTSYM do begin 
NAME := O 
Read(INFILE, CH); 


(Memória suficiente?) 


while CH <> BLANK do begin 
NAME := NAME+CH 
Read(INFILE, CH); 
end; 
ReadLn(INFILE, VALI, VAL2, SYMTYPE); 
end; 
Insert SYM(ACTSYM, sYM); 
end 
else begin 
Write( "Not enough memory to run PASM. Program 
aborted... ); 
Halt; 
end; 
(S1+) 
if IOResult <> O then begin 
Write( Errors in PASM.DAT. Program aborted...'); 
Halt; 
end; 
end; 


ee 


(* PROCEDURE INIT ERROR TABLE ad 


e e 


Procedure Init Error Table; 


var 

1: Integer; 

ErrorS : string80; 
begin 


(SL) 
Read Ln(INFILE, ErrorS); 
Read(INFILE, 1): 
ReadLn(INFILE, ErrorsS); 
if |< MAXERR then ERR[ I ] := ErrorsS; 
while not EoF(INFILE) do begin 
Read(INFILE, 1); 
Read Ln(INFILE, ErrorS); 
if [<MAXERR then ERR[I] := 
end; 
Close(INFILE); 
($1+) 
if IOResult <> O then begin 
Write(Errors in ASMERR.MSG. Program aborted..."): 
Halt; 


end; 
end; (Continua no Próximo Número) 


( Comentário ) 


Errors; 


E 
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Lição Nº 6 


Um pouco de teoria (Continuação ) 


O Turbo C reconhece uma ampla gama de funções prepara- 
das para manipular strings. 

Na lição anterior analisámos uma delas, a função Toupper (x) 
preparada para devolver a maiúscula equivalente a cada letra 
encontrada na string que usar como argumento, o que 
permite ao utilizador teclar respostas em letra maiúscula ou 
minúscula indiferentemente, sem estar preocupado com o 
formato de letra da string a comparar. 


Nesta lição, entre as mais comuns desse grupo, falaremos de 
mais cinco funções. São elas: 


- à função strlen(x) que calcula a extensão de uma string. 
- a função strepy(x) que copia strings. 

- à função streat(x) que junta strings. 

- à função stremp(x) que compara strings. 


- a função tolower(x) que é complementar da função 
toupper(x). 


Ensaio 28 


/* Este programa lê o comprimento de uma strinh, usando 
strlen(str) como parâmetro da função printf() */ 


Hinclude <conio.h> 
tidefine ESC 0xlb /* char (27) em Hexa - Tecla ESC */ 
main( ) 


char str[ 80 ]; 
char ch; 


clrscr( ); 
do 


printf(”Tecle uma string: Win”); 

gets(str); 

printf(”A string tem Y%d caracteres An”, strlen(str)): 
printf(”Prima ESC p/sair, outra tecla p/continuar.. Mn”); 


ch = getch( ); 


) 
while (ch != ESC) ; 


Comentários ao ensaio 28 

Repare que a string str é dimencionada para 80 caracteres, 
pelo que em resposta a tecle uma string não deve escrever 
mais de 79 caracteres, tendo em atenção que o último é 
sempre reservado ao fecho da string. 

Seguidamente, a função strlen(str) vai indicar-lhe o número 
de caracteres da string teclada e o ciclo repete-se até primir 
a tecla ESC. 

Ensaio 29 


/* centrar uma linha de texto no ecran, com strlen(x) */ 


Htinclude <conio.h> 


tdefine ESCAPE Oxlb 
define EXT 80 


fi A RS a ag 
E 
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MMrerercccreccccccccicciiciiis 


main( ) 

( 
char str[EXT]; 
char ch; 


clrscr( ); 


printf(”Tecle uma string: Wn”); 
gets(str); 


printf(Anin”); 

center(strlen(str)); 

printf(str); 

printf(Nnn”); 

printf(”Prima ESC p/sair, outra tecla p/continuar.. Mn”); 


ch = getch( ); 


) 
while (ch != ESC); 
) 


/* center(len) calcula e exibe o número correcto de espaços 
para centar a string de comprimento len */ 


center( len ) 


int len; 


( 
len = (EXT - len) / 2; 


while(len > 0) ( 
printf(” ”); 
len--; 
) 
) 


Comentários ao Ensaio 29 


Neste ensaio a função strlen(str ) é usada como parâmetro da 
função center( ) para introduzir no calculo o comprimento 
real da string teclada. 

Assim, o número de espaços desde o início da linha até à 
coluna aonde será instalado o primeiro caractere da string, é 


errei 


calculado subtraindo a extensão da string teclada, do valor 
dimencionado inicialmente e resultado dividido por 2. 
Ensaio 30 
/* imprimir uma string de tras para a frente */ 
Hinclude <conio.h> 


tidefine ESC 0xlb 
tidefine EXT 80 


main( ) 
( 


char str[EXT]; 
char ch;; 


int v; 
clrscr( ); 
do 
( 


printf(”Tecle uma frase: ”); 
gets(str); 


printfCAnin”); 

for(V = strlen(str)- 1;v >=0; v--) 
printf(”%c”, str[v]); 

printfQnin”); 


ch = getch( ); 
) 
while(ch != ESC); 
) 


Comentários ao Ensaio 30 


Este ensaio inverte de tras para a frente os caracteres encon- 
trados na string. 


CEEE SEE EEE 
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| (CONTABILIDADE E GESTÃO) 
RAPIDEZ E EFICIÊNCIA 


ae 


FISCALIDADE * IVA * IRS 
Constituição de Empresas : Sociedades 


Contactar pelos telefones: - 947 34 45 - 947 13 42 


VENDE-SE: 


COMPUTADOR TIMEX - FDD 3000 COM 2 SISTEMAS OPERATIVOS: TOS + CPM 
É 2 DRIVES p/DISQUETES DE 3” + PROGRAMAS UTILITÁRIOS ( Processador de 
texto, print screen, assemblador e outros ) + IMPRESSORA SEIKOSHA / TIMEX 2080 
p/A4 ( folha ou continuo, compatível EPSON FX-80 ) + TV National A P/B. 

Nota: TAMBÉM CORRE PROGRAMAS DO SPECTRUM... 

PREÇO DO CONJUNTO - 78.000$00 


2 Computadores Spectrum 48 K - cada = 15.000$00 


Microdriver para Spectrum - preço = 12.000$00 


LIGHTPEN para Spectrum - preço = 3.500$00 


Bnviar respostas com Ref” 04FP paras 
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A sua finalidade não é realmente a de vermos, por exemplo, 
o nosso nome aparecer ao contrário no ecran, mas sim a 
demonstração de como poderemos manipular, um a um os 
caracteres de uma string. 

Esta característica bem aproveitada consegue-nos abrir vastos 
horizontes na manipulação de strings e substrings. 

Pense no assunto e tente outros ensaios. 


Ensaio 31 


tinclude <conio.h> 


main( ) 


char grupo 1[20], grupo2[20]; 
clrscr( ); 
/* atribuir um grupo de palavras a cada string */ 


strepy(grupol, ”Está um lindo dia ”); 
strepy(grupo2, “e o Sol queima. ”); 


/* juntar as duas strings na primeira */ 
streat(grupol, grupo?) ; 


/* imprimir o resultado */ 
printf(”Y%swn”, grupol); 


getch( ); 


Comentários ao Ensaio 31 


Dois conjuntos de palavras, inseridos no programa, são 
copiadas para duas strings já definidas (grupol e grupo? ) 
pela função strepy( ) e juntas na primeira string pela função 
strcat( ). O resultado é apresentado no ecran pela função 
printf( ). 
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Ensaio 32 


/* devolver verdadeiro se senha aceite; senão falso */ 
/* codigo de acesso - stockOS */ 


tinclude <conio.h> 
main( ) 
( 


intk=0; intm; 
float i; 


clrscr( ); 
m = senha(k) ; 


(m==1) 
program( ); /* senha aceite */ 
else 


printf(”Senha errada, vou sair...bye...bye”); 
for(i=1; i<5000; i++) ; 


) 


senha(n) 
int n; 


char s[80]; 


printf(”digite a senha: ”); 

gets(s); 

if(stremp(s, ”stock05”)) 
n=0; 

else 


n=l; 


retum n; 


) 
program( ) 


A 


to 


ROGRAMAR EM mn 


Zi 
4411111001 


clrscr( ); 
printf(”Senha aceite... 
getch( ); 

) 


Estou no programa...”); 


Comentários ao ensaio 32 


Para proteger a utilização indevida de um programa, por 
outros utilizadores não autorizados, é habitual existir um 
código (conhecido por senha ou password) a reservar o 
respectivo acesso. 

Uma simplificada versão de um verificador de códigos é 
reproduzida neste ensaio para exemplificar as comparações 
de strings pela funçãp stremp( ). 


A string introduzida pelo teclado que contém o código de 
reconhecimento do utilizador é comparada com a string 
interna que contém o código de acesso. Se as duas strings são 
identicas então este é permitido, projectando ao mesmo 
tempo uma mensagem de aceitação. 

No caso de não serem coincidentes, a execução do programa 
termina com uma mensagem de rejeição. 


Ensaio 33 


/* um exemplo com stremp(x) para sair dum loop perma- 
nente */ 


tinclude <conio.h> 


main( ) 


( 
char s[80]; 


clrscr( ); 


for(;:) | 
printf(”Quer sair (S ou N) ?Wn”); 
gets(s) 
f(Istremp(”S” , s)) break 


printf(”Saída do ciclo provocada por break...”); 
getch( ); 
) 


Comentários ao Ensaio 33 


Um comando for declarado com esta sintaxe é transformado 
num ciclo permanente. Repare que a expressão condicional 
está vazia, sem inicio,sem fim, sem incremento, contendo 
apenas os dois separadores. 


A saida do ciclo é provocada pelo comando break quando, 
pelo teclado for introduzido o caracter ”S”. 


Ensaio 34 
Fazendo uma pausa nos exemplos de apoio à teoria, sempre 
um tanto pobres no capítulo de imagem, por não ser essa a 
sua finalidade, vamos agora aprender como poderemos 


entrar em Modo Gráfico. 


Este modo permite mostrar agradáveis efeitos visuais, 
tornando mais aliciante a concepção de um programa. 


Para a sua iniciação, preparei duas pequenas demonstrações 
dentro do mesmo ensaio, para com elas apresentar algumas 
funções basicas do Modo Gráfico. 
Depois de editadas as linhas que compõem este ensaio, veja 
com atenção os respectivos comentários antes de o compilar 
e correr. 
/* Inciar modo gráfico */ 

Hinclude <conio.h> 

Hinclude <graphis.h> 

tinclude <math.h> 

Hinclude <float.h> 

const float pr = 6.28; 

int meridiano, paralelo, m, p ; 

intr = 140; int xx = 320; intyy = 175; 

float n; float x,y; 


main( ) 
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/ Zi 
DAI 7777777707 77 0777770000 0///00/0000000000000000000000000000000000000000000/000 0/0/0000 


inigraf( ); 


globo( ) ; 

gotoxy(5, 21); 
printf(”Prima uma tecla...”); 

getch( ); 


setbkcolor(0) ; 
cleardevice( ); 


sist planet( ); 


closegraph( ) ; 


inigraf( ) 


( 
inti, ); 
l=3, )=1; 


initgraph (&i, &j,””); 
setbkcolor(1) : 
cleardevice( ): 


globo( ) 
( 


gotoxy( 34,6); 
printf("LINHAS DO MUNDO”); 


setcolor (9) ; 
rectangle (218, 99, 422, 250); 
rectangle (220, 101, 420, 248); 


setcolor (6) : 
line(240, 175, 400, 175); 
line(320, 115, 320, 235); 


m = meridiano; 
for (m=15S;m <=75; m=m +15) ( 


ellipse (320, 175, 0, 360, m, 62): 
) 


7 


p = paralelo; 
for (p= 15;p<=65;p=p+ 15) ( 


ellipse (320, 175, 90, 450, 80, p); 
) 
sist planet( ) 


setcolor(14) ; 
circle(xx, yy, 60); 


for(p=1 ; p<S ; p++) 
for(n=0; n<=pr; n=n +.02) 


x=1.28* cos(n)*r+xx; 
y=sin(n)*r+yy; 


setcolor(3) : 
circle(x, y, 20); 


for(m=1 ; m<S50; m++); 


setcolor(0) ; 
circle(x, y, 20); 


Comentários ao Ensaio 34 


Este tipo de iniciação não testa a carta gráfica do seu 
computador nem devolve as mensagens de erro dessa prov- 
eniência. Por isso, os valores que se adaptem às característi- 
cas gráficas da máquina, terão de ser escolhidos e intro- 
duzidos pelo leitor. 


Comece por procurar na tabela gráfica, mostrada em baixo, 
aonde se encontra a descripção de quase todos os tipos de 
cartas gráficas e displays existentes no mercado, as carac- 
terísticas gráficas indicadas pelo Manual da sua máquina.. 
Da tabela, extrai os valores das variáveis (i e j), necessários 
à iniciação do programa. 


A sintaxe da função de iniciação em Modo Gráfico é: 
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| 
. 


* 


A ssssssssrosnonsass 
VV VU 
7 ENEXIA PROGRAM 


Mica 


initgraph (&graphdriv, &graphmode, pathtodriv) 


em que graphdriv é substituído pela variável i e gra- 
phmode pela variável j. 

O parâmetro pathtodriv é uma string que deve indicar o path 
dos ficheiros de extensão BGI, que normalmente se encon- 
tram no mesmo directório do compilador e por isso, no 
ensaio, está representada por um conjunto vazio ” ”, 

Para o leitor que não conheça as características gráficas da 
sua máquina, a solução é experimentar vários valores ou 
aguardar numa das próximas lições, um ensaio que fará a 
introdução Gráfica automáticamente, acertando o modo 
gráfico para cada caso. 


Quadro dos Drivers Turbo C e do Modo Gráfico 


Os parâmetros introduzidos nas funções gráficas são dados 
em número de pixeis e têm de estar relacionados com a 
densidade de pixeis do Modo gráfico seleccionado. 


Os valores apresentados no ensaio foram preparados para 
uma carta gráfica do tipo EGA HI de 640 * 350, 16 cores. 


Ássim, os valores: 
320 = 640/2 é o centro do eixo horizontal do ecran 
175 = 350/2 é 0 centro do eixo vertical do ecran 


Com outra definição de imagem, calcule as coordenadas a 
atribuir nessas funções.. 


CGACO - 320 * 200 / palet O (= E 4.50) A função setbkcolor( ), acerta a cor de fundo no ecran. 
CGACI - 320 * 200 / palet | (= jm 
CGAC2 - 320 * 200 / palet 2 U<l)<2) 5 R ; 
A função cleardevi » limpa a zona de gráficos préde- 
CGAC3 - 320 * 200 jpalet3 = 1,]=3) AUD ce( ), limp eg p 
CGAHI - 640 * 200 [2cores  (i=1,j=4)  tinida. 
MCGACO - 320 * 200 / palet O (i=2,)=0) À função circle( ) desenha um circulo cujo centro é o ponto 
MCGACI - 320 * 200 / palet | (i=2,j=1) centarl do ecran marcado pelos dois primeiros parâmetros. 
MCGAC2 - 320 * 200 / palet 2 (i=2,. j=2) O último parâmetro, determina o comprimento do raio. 
MCGAC3 - 320 * 200  palet 3 (i=2,j=3) 
MCGAMD - 640 * 200 / 2 cores (1=2,)=4) Na elipse, os dois primeiros valores determinam o centro, os 
MCGAHI - 640 * 480 /[ 2 cores (1=2.)=5) dois valores seguintes determinam o seu arco e os dois 
Ed To ultimos os dois raios. Assim, uma elipse traça os meridianos 
EGALO BAU 200 ema MESA O gmiiiha os paralelos na demonstração das coordenadas do 
EGAHI - 640 * 350 /16 cores (U=3,)=1) 
globo. 
EGALG4LO — - 640 * 200 Hoócores — (i=4, j=0) Na d 3 itô-timles dum E Pianatiri 
EGAL64HI - 640 * 350 AG cais (i=4,j=1) a demonstração RRULO simples dum sistema Planetário, o 
planeta em translação é desenhado em cor azul e apagado, 
EGAMONO  -640*350 / 2 cores (i=5, j=3) quando o desenhado em cor igual ao fundo. 
HERCMONH - 720 * 348 /2 cores (à = 7 j <0) Não se esqueça que este é o nosso primeiro ensaio em modo 
gráfico. 
ATT400C0 - 320 * 200 / palet O (1=8,)=0) — Partindo destas funções, pratique bastante e tente fazer 
ATT400C] - 320 * 200 / palet | (i Es Jo 1) qualquer coisa diferente. 
ATT400C2 - 320 * 200 / palet 2 (i=8, j=2) 
ATT400C3 - 320 * 200 fpalet 3 (i=8,j=3) B | 
oas ensaiadelas... 
ATT400MD - 640 * 200 / 2 cores (1=8, )=4) Até ks TT 
ATT400HI - 640 * 400 / 2 cores (i=8,j=5) ea proxima ..: 
VGA LO - 640 * 200 /16 cores (1 =9,j=0) 
VGA MED - 640 * 350 /16 cores (1=9, )= 1) 
VGA HI - 640 * 480 fI6cores  (i=9,j=2) Fernando Preces 
PC3270HI | -720*350 [2cores — (i=10,j=0) 


TF [>>> [ww] —[[[—— 
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Representante Exclusivo para PORTUGAL: 


J.P.R. - Informática 


Rua General Alves Roçadas, 38 - Loja 10 - Tel./Fax. : 987 72 91 


2675 ODIVELAS - PORTUGAL 


MSX - Gráficos & Som PSG 


GRÁFICOS AVANÇADOS - (IV) 


Apresentadndo as nossas desculpas pelo “interregno” 
neste artigo, ocasionado pela indisponibilidade do nosso 
amigo e colaborador Osvaldo Duarte , retomamo-lo de 
novo com a certeza da sua continuidade. 


COMO COLOCAR UM SPRITE NO MODO DE 
ÉCRAN: PUT SPRITE 


Existem 32 planos de sprite em frente dos planos de texto/ 
gráfico, com o plano sprite nº0 na frente de todos. 

Isto significa que quanto menor for o número do plano, 
maior a prioridade. Se existem dois sprites sobrepostos, 
aquele com menor número de plano será exibido na frente, 
com o outro escondido atrás. 

Podemos definir até 256 padrões de sprites, mas somente um 
sprite pode ser exibidoi em um plano particular. Isso limita 
o número máximo de sprites exibidos ao mesmo tempo a 32. 
Mais ainda: só se pode colocar um máximo de quatro sprites 
por linha horizontal. 

Para colocar um sprite no modo de écran, use o comando 
PUT SPRITE. Ele tem a seguinte sintaxe: 


PUT SPRITE <número do plano do 
sprite>[,<especificador de 
coor denada>][,<cor>][,<número do sprite>] 


O <número do plano do sprite> tem uma faixa de O a 31. 
O <especificador de coordenada> diz ao computador onde 
colocar o canto superior esquerdo do sprite. Existem dois 
formatos de <especificador de coordenadas>: 


|- (<coordenada x>,<coordenada y>) 
Isso especifica uma posição absoluta no modo de tela. 


2- STEP( <x>, <y>) 
Estas coordenadas são as coordenadas de um ponto relativas 
ao último ponto referenciado. 


<x>,<y>,<coordenada x> e <coordenada y>, podem ser 
variáveis ou expressões, bem como simples constantes 
numéricas. 

isto significa que os sprites podem ser controlados por 
variáveis permitindo movê-los suavemente. 

Se o (<especificador de coordenada>) for omitido, então o 
comtupador colocará o SPRITE no último ponto referênciado. 


Exemplos: 


PUT SPRITE 0,(50,50),1,1 
PUT SPRITEI, STEP(10,10),12,12 


O modo de écran de sprite é ligeiramente maior que o mod 
de ecran de exibição normal. 

Ele tem uma faixa entre -32 e 255 na coordenada x e entre- 
65 e 248 na coordenada y. 

As faixas de coordenadas reais dos modos de écran sô 
menores, de modo que se o sprite for colocado no modo «e 
écran de exibição real, ele será escondido parcial ou t- 
talmente. 

Os sprite têm a facilidade de unir os extremos do modode 
écran. 

Isto significa que se um sprite sair fora do modo de écran ele 
aparecerá outra vez no canto oposto do écran. 


COMO MOVER SPRITES 


Alterando o valor do <especificador de coordenadas> no 
comando PUT SPRITE, podemos mover o sprite para 
qualquer lugar do écran. 

Quando o comando PUT SPRITE é executado, o srite 
anterior na antiga localização do modo de écran é apagido 
automáticamente. 

O programa-exemplo que de seguida apresentaremos, esibe 
um quadrado movendo-se lentamente da direita pari a 
esquerda, indo através do modo de écran para a esquerd: e 
aparecendo pela direita. 


a 
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MSAX 


Gráficos & Som PSG 


10 SCREEN 2,0 

20 SPRITES(0)-STRING$(8,CHR$(255)) 
30 FOR X=200 TO -200 STEP -1 

40 PUT SPRITE 0X, 100), 15,0 

50 FOR D-1 TO 50:NEXT D 

60 NEXT 

70 END 


LNHA 10 Selecciona o Modo de Écran, tamanho normal. 
LNHA 20 Define o sprite quadrado 

LNHA 40 Coloca o sprite em X,100 

LHHA 50 Espera 

CGRES DOS SPRITES 


Podenos usar qualquer uma das 16 cores. Entretanto, pode usar 
somate uma cor por sprite, de modo que não é possível ter um 
sprite multicolorido. Para simular um sprite multicolorido, 
colocie dois ou mais sprites de diferentes cores em cima de outr 
em dferentes planos de sprites e mova-os juntos. 

Obseve que a cor de fundo de um sprite é sempre transparente, 
de mo que você pode ver através dos vazios do sprite. 

O práimo exemplo define dois sprites, O e 1. 

O sprie número O é exibido em branco e o sprite número 1 em 
amardo escuro.Na exibição ver-se-ão cada um dos sprites 
separdamente, bem como a combinação dos dois que simula 
um spite multicolorido. 


10 SCREEN 2,0 


20 SPRITES(0)--CHR$(16)+CHR$848)+CHR$(112)+CHRS$ 
(255)+CHR$(255)+CHR$(112)+CHR$(48)+CHR$(16) 


30 SPRITES(1)-CHR$(224)+CHR$(192)+CHR$(128)+ 
CHR$(0)+CHRS$(0)+CHR$(128)+CHR$(192)+CHR$(224) 


40 PUT SPRITE 0 20, 20), 15, 0 

50 PUT SPRITE 140, 40), 10,1 

60 PUT SPRITE 2, ( 60, 60), 15, 0 

70 PUT SPRITE 3, ( 60, 60), 10, 1 

80 GOTO 80 

LINHA 10 Selecciona o modo de écran, tamanho normal 
LINHA 20 Define o sprite O 

LINHA 30 Define o sprite 1 

LINHA 40 Coloca o sprite O em branco 

LINHA 50 Coloca o sprite | em amarelo-escuro 


LINHA 60 Coloca os sprites 2 e 3 nas mesmas coordenadas 
usando 2 cores em diferentes planos de sprites. 


REPARAÇÕES - « Computadores 


TV - VIDEO - Hi-Fi 


ANTENAS : Satélite e Terrestres 


SANCHES GIRÃO 


Rua Edith Cável, 7 
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MSX - Gráficos & Som PSG 


COMO ESCONDER SPRITES 

Se se der um número especial à coordenada y, pode-se 
desactivar os sprites: y=208. 

Se for fornecido 208 (&HDO) à coordenada y, todos os 
planos de sprites maiores serão desactivados até que um 
valor diferente de 208 seja dado a esse plano. 

I0 SCREEN 2,0 

20 SPRITES(0)-STRING$(8,CHR$(255)) 

30 PUT SPRITE 0( 20, 20), 15,0 

40 PUT SPRITE 1, (40, 40), 15,0 

50 PUT SPRITE 2, (60, 208), 15,0 

60 PUT SPRITE 3, ( 80, 80), 15,0 

70 PUT SPRITE 4, (100, 100), 15, 0 

80 GOTO 80 

LINHA 10 Selecciona o modo de ecran, tamanho normal 
LINHA 20 Define um sprite quadrado 

LINHA 50 y=208 Desactiva os sprites do plano 2 para a 
frente: os sprites das linhas 60 e 70 não são exibidos. 

Se for especificado y+209(&HDI) para y, então este desa- 
parece no ecran. 

I0 SCREEN 2, 0 

20 SPRITES(0)-STRING$( 8, CHR$(255)) 

30- PUT SPRITE 0, ( 20, 20), 15, 0 

40 PUT SPRITE 1, ( 40, 40), 15,0 

50 PUT SPRITE 2, (60, 209), 15,0 

60 PUT SPRITE 3, ( 80, 80), 15, 0 

70 PUT SPRITE 4, ( 100, 100), 15,0 


80 GOTO 80 


LINHA 20 Define o sprite O 

LINHA 30 Sprite quadrado no plano 1 
LINHA 40 Sprite quadrado no plano 2 
LINHA 50 Y=209 Desactiva este sprite 
LINHA 60 Sprite quadrado no plano 3 
LINHA 70 Sprite quadrado no plano 4 


A REGRA DO «QUINTO» SPRITE 


Existem um limite máximo de quatro sprites que poem ser 
exibidos em uma linha horizontal. Se esta regra for 'iolada, 
então somente os quatro sprites com os últimos núreros de 
planos de sprites serão exibidos normalmente. 

O restante não será exibido nessa linha. O número c sprite 
do quinto sprite, que violou a regra, pode ser encontado no 
registador de status VDP usando a função VDP. 
Exemplo: 


10 SCREEN 2,0 

20 SPRITES(0)=STRINGS$( 8, CHR$(255)) 
PUT SPRITE 0, (20, 100), 15, 0 

PUT SPRITE 1, ( 40,100),15, O 

50 PUT SPRITE 2, (60, 100), 15,0 

60 PUT SPRITE 3, (80, 100), 15, 0 

70 PUT SPRITE 4, ( 100, 104), 15, 0 

80 GOTO 80 


ê 8 


LINHA 10 Selecciona o modo de écran em taman> normal 
LINHA 20 Define o sprite O 

LINHA 30 Sprite quadrado na linha 100 

LINHA 40 Sprite quadrado na linha 100 

LINHA 50 Sprite quadrado na linha 100 

LINHA 60 Sprite quadrado na linha 100 

LINHA 70 Sprite quadrado na linha 100 


No exemplo anterior, verá quatro sprites sepados, na 
mesma linha horizontal, a linha 100. 

O quinto sprite está na linha 104 e dessa forma e mostra 
somente metade do quadrado, sendo a outra metie escon- 
dida devido à regra do quinto sprite. 

Se ele estivesse na linha 108, todo o quinto site seria 
visível. 


Continuaremos no próximo número com: Anação de 
Sprites; Como detectar a colisão de sprites; Nas sobre 


colisão de sprites. Até à próxima!!! 


OSVALDO DUARTE 
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SUPERCALC Total 


A aborcgem principal do livro é sobre a família de folhas 
de cáleco SUPERCALC. 

É abordio o SUPERCALC 3, agora com recursos gráficos 
e gestãole dados, não disponíveis nas versões anteriores; o 
SUPERALC 4 que possui bastantes recursos de pro- 
gramaçã e facilidades de leitura de arquivos gerados por 
outros sftwires e, uma introdução ao poderoso SUPER- 
CALC “que pode ser executado em qualquer equipamento 
compatil IBM PC, XT, AT PS/2 com 520 Kb de memória. 
Com o UPERCALC 5 é possível a utilização de impres- 
soras lar e é muito simples de ser usado. 

Dentro »s vários exemplos de aplicação citados no livro, 
podemcdestacar: 

- Declação do imposto de renda; Controlo de contas 
bancári; Análise e projecção de balanços; Cálculos e 
Topogra; Elaboração de gráficos; Cálculo de rentabili- 
dade derodutos. Este livro possibilitará ao leitor realizar 
tarefas é então julgadas impossíveis de serem realizadas 
somentom lápis, papel e calculadora. 


PREÇ- 5.260$00 


0 


WordPerfect 5.0 & 5.1 


Todas as palavras e ilustrações deste livro foram produzidas 
com o WordPerfect, usando técnicas simples que qualquer 
um poderá dominar. 

Bem organizado, com dicas e truques, apresenta as carac- 
terísticas de edição de textos do WordPerfect - como criar 
documentos nítidos e eficazes de forma rápida e pouco 
dispendiosa, com aparência profissional. 

Centenas de ilustrações irão guiá-lo por cada uma das 
características gráficas do WordPerfect. 

Exemplos, passo a passo, mostrarão ccomo melhorar a 
aparência de boletins, prodspectos, folhetos, corre- 
spondências comerciais, anúncios, formulários, relatórios e 
outros. 

Fácil de ler e entender, este livro permitirá que se tire o 
máximo proveito das incríveis características de tratamento 
de textos com o WordPerfect. 


PREÇO: 3.310$00 
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* INET - Software de rede local * ARQUIMEDES - Análise de Funções 


- Ligação em rede para dois computadores tipo PC. 
- Ambos os computadores ficam ligados como se fossem um 


“Integração numérica 
-Derivação simbólica 


Único. - Zeros, extremos e pontos de inflexão 
- Velocidade de transmissão até 115200 BPS através de um - Estudo da monotonia e simctria 
porto série. - Análise de polinómios 


- Inclui 3 m de cabo série. 


15.000800 + IVA ( cabo incluído) 


* QUICKPHONE - Marcação automática de números 
de telefone através do PC. 


-Representação gráfica de funções 


10.500$00 + IVA 


* DERIV - Derivação simbólica de funções 


- Derivação implicita 
- Derivação múltipla 
- Grau de derivação teoricamente ilimitado 


7.500800 + IVA 


* XEQUE - Jogo de Xadrez 


- Marcação de chamadas em BACKGROUND através de um PC 
equipado com um MODEM HAYES - compativel. 

- Pode continuar a usar o seu PC enquanto ele tenta simultâne- 
amente estabelecer as chamadas requisitadas. 

- Marcação directa ou por agenda. 


7.500800 + IVA 


* SECUR - Sistema de segurança para PCs partil- 
hados por diversos utilizadores. 


- Diversos níveis de dificuldade 
- Resolução de situações de mate 
- Jogo automático 

- Ajuda incorporada 

- 24 níveis de acesso. 

- Possibilidade de determinar com rigor o conjunto de directórios 
e programas a que cada utilizador pode ter acesso 

- Impossibilidade de aceder ao disco duro se o computador tiver 


sido inicializado a partir da drive A. 


21.500800 + IVA (Instalação incluída) 


* TOOLBOX - Métodos numéricos para Turbo Pascal 
(tm) versão 4.0 e superiores. 

PEDIDOS A: « RS232 - Informática » 
- Funções para integração numérica 
- Exibição de gráficos 

- Resolução de equações lincarcs 

- Resolução de equações diferenciais 
- Representação de funções 

- Inúmeros exemplos 


9.000800 + IVA 


Envie o valor do seu pedido, em cheque ou vale 
postal para: 
- Calç. de Palma de Baixo, 15 cy Drt? -1600 Lisboa 
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SOFTWARE ORIGINAL 


IBM - PC 3.5” 


F-19 Stealth Fighter 
M1 - Tank Platoon 


International Soccer Chalange 


Rick Dangerous 

Ikari Warriors 

F-15 Strike Eagle 
Silent Service II 
Sharkcy's 3D Pool 
Red Storm Rising 
Rail Road Tycoon 
Lightspeed 

Covert Action 

Sword of the Samurai 
Pirates 

Midwinter 

Knights of the sky 
F-15 Strike Eagle II 
Starglider TI 

Rick Dangerous Il 
Sorcerers Get All the Girls 
UMS II - Nations at War 
Carricr Commando 
Thunderblade 
Robocop 

Platoon 

Barbarian 

Out Run 

Indiana Jones (acção) 
Green Bcret 

Sito Pons 500 cc 
Night Shift 

Indiana Jones (aventura) 
Wall Street 

Golden Basquet 
Their Finnest Hour 
Infestation 

Khalaan 

Lost Patrol 

Rescate en el Golfo 


9.8508 
9.7508 
7.3008 
6.2508 
2.9258$ 
6.8508 
8.4008 
7.7508 
9.7508 
8.995$ 
9.7508 
9.7508 
7.7508 
7.7508 
8.995$ 
9.7508 
8.9958$ 
8.9958$ 
6.2508$ 
9.7508 
10.995$ 
7.7508 
1.9508 
1.9508 
1.9508 
1.9508 
1.950$ 
1.9508 
1.9508$ 
4.8508 
7.7508 
10.7508 
6.8008 
4.8508 
10.5008 
3.9508 
3.9508$ 
4.8508 
3.9008 


Drakken 7.6508 
Operation Btealth 7.750$ 
Heroes of the Lance 6.8508$ 
Tartarugas Ninja 4.8508 
Alpha Waves 3.9508 
Light Corridor 3.9508 
Gremlins 2 3.950$ 
Ra 3.9508 
Dragons Breath 7.6508 


SPECTRUM 


Rick Dangerous 2.6908 
Rick Dangerous II 2.6908 
Project Stealth Fighter 2.6908 
P-47 Thunderbolt 2.6908 
3D Pool 2.6908$ 
F-15 Strike Eagle 2.6908 
COMMODORE 64 
Rick Dangerous II 2.690$ 
F-15 Strike Eagle 2.6908 
Thrill Time Gold - 1 3.4008 
Thrill Time Gold - 3 3.4008 
Escape From Steges Castle 6508 
Scooby Doo 6508 
Paperboy 6508 
Bombjack 6508 
Bombjack II 6508 
Live & Let Die 6508 
Hcrocs of the Lance 2.1008 
Un squadron 1.9008 
Narc 1.9008 
Line of Firc 1.9008 


Badlands 1.9008 
Weltris 1.9008$ 
Super off Road 1.9008$ 
Total Recall 2.100$ 
Back to the Future II 1.9008 
De Cine - Comp. 4 jogos 2.9508 
Platinium - Comp. 4 jogos 2.750$ 
Heroes - Comp.4 jogos 2.7508 
Rodas de fogo - Comp. 4 jogos  2.9508 
A toda a máquina - 5 jogos 2.500$ 


COMMODORE AMIGA 


Rick Dangerous 6.2608 
Rick Dangerous II 6.2608 
M1 - Tank Platoon 7.3008 
F-19 Stcalt Fighter 7.3008$ 
Int.Soccer Chalange 6.5508 
Carricr Commando 6.5508 
3D Pool 5.0508 
Simulcra 6.5508 
Carthage 6.1008 
Bomjack 2.9508 
Fire & Brimstone 6.5008 
Thje Story so Far (comp.) 4.9508$ 


Shadow of the Beast II(c/t-Shirt) 7.5508 


Awesome (C/T-Shirt) 7.5508 
I Play 3D Soccer 5.375$ 
The Basquet Manager 5.3758 
Lemminegs 6.150$ 
Obitus(C/T - Shirt) 7.5508 
Infestation 6.1508 


Nitro 6.1508 


The Killing Game Show 6.1508 
Red Storm Rising 7.3008 
Betrayal 7.3008 
Amos 14.625$ 


DIDÁCTICOS ( cada 400800) 


Astor Música 


Sub-Rotinas de Matemática 


Geografia de Portugal 
Tabela Periódica 
Matemática Infantil 
Gráfico de Funções 
História Universal 
Inventos e Inventores 


Cálculos de Áreas e Volumes 


Esqueleto Humano 
Aparelhos digestivo 
Universo 


Grandes Regiões Bio-Climáticas 
O Sistema Solar 

Div.e Classificação dos seres vivos 
As Plantas 

Genética 

Orgãos reprodutores 

Geologia 


JOGOS DIVERSOS (Cada 200800) 


ASTOR mind 
Batalha Naval 
Bloco Mágico 
Biocal ( Bioritmo / Calendário ) 


Férias cm Portugal 
Foguetão 

Guerra em Kripto 
ASTOR na Lua 


JOGOS DE CASINO (Cada 200800) 


ASTOR Roleta 

Póker Aberto 

Bingo 

Máquina de Póker 
Poker de Casino 
ASTOR Gamão 
ASTOR Slot MAchine 
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Esta secção tem o apoio da LIDEL- Edições Técnicas Ldº. 
LISBOA - R. Praia da Vitória, 14 
PORTO - R Damião de Góis, 452 

COIMBRA - Av. Emídio Navarro II - 2º 


Os descontos concedidos a ASSINANTES ( 10% ) só são válidos através de pedidos feitos à 
«RS232-Informática» . O conteúdo destas publicações é em Português (Brasileiro). 


Administração Projectos Pert/CPM 
Per/CPM/ROY tecnicas programação Control 
Sistema Informação Empresa 
Programação Estruturada Fortran Watfiv 
Engenharia de Programas 

Organização Métodos Integrado Informática 
Turbo Pascal 3.0 

Programação COBOL 

Informática Educação 

Estaústica Computacional 

Inteligência Artificial 

Framework 2 

Turbo Prolog 

Introdução Computação Gráfica 
Desktop Publishing 

Glossário Informática 

Redes Locais 

Programação Técnicas Turbo Pascal 4.0 
Introdução Turbo Basic 

Curso Cálculo V 3 

Programação D Base III Plus 
Wordperfect 

Norton Utilities Versão 4.0 

Ventura Publishing para IBM PC 
Gerência Projectos Sistemas 

Linguagem C Programação Aplicações 
0S/2 

Rotinas Prontas MSX 

Clipper V.l 

Clipper V.2 

Guia Programação 80386 

Supercalc Total 

Intel.Artificial Sistem Aistem Alcance TODOS 
Comunicação Dados Conceitos Básicos 
Programação Técnicas Turbo Pascal V.4.0 
Programando Modula 2 

Introdução PC DOS 

Telemarketing 

Introdução Paradox 

Introdução Pesquisa Operacional 
Microsoft Windows 

Page Maker 3.0 

Projectos Circuitos Integrados 
StoryBoard Plus 

Aplicações Desktop Publ. Laser desk 
Disco Rigido PC 

Case Relatorio Gane 

Dominando o Ventura 


2.1658 
2.7108 
1.4458 
4.695$ 
3.7208 
3.4658 
3.6808 
5.3508 
4.4408 
4.9508$ 
5.6058$ 
2.2908$ 
3.965$ 
3.1358$ 
4.9108 
13.605$ 
4.265$ 
3.1708 
4.5258$ 
5.6058 
5.5208 
7.325$ 
3.535$ 
5.135$ 
3.8358$ 
4.2658$ 
4.7808 
24158 
5.3308 
4.7308 
6.120$ 
5.2608 
2.720$ 
2.415$ 
5.3508 
3.7508 
4.8708$ 
2.220$ 
2.6308 
5.9158 
8.7008 
3.6808$ 
7.025$ 
6.035$ 
2.845$ 
8.7008$ 
7.4108$ 
5.990$ 


Fundamentos Programação C 
Programação Lincar 

Quattro 

PC / MS DOS Versão 4.0 

Prototipação Sistemas Informações 
Descobrindo Linguagem Postscript 

Excl Avançado 

Introdução Sistemas Operacionais 
Reengenharia Software 

Recuperação Sistemas Informação 
Programação D Base IV 

Introdução Sistemas ON-LINE 

Turbo € 2.0 

COBOL IBM/PC 

Turbo Pascal 5.5 

Programação Técn. Turbo Pascal v.4.0 
Ventura Publ. 2.0 Dominando Edit. Elcc. 
Turbo Pascal 5.0 5.5 

WordStar 5.0 5.5 

COBOL fundamentos Aplicações 
Análise Estruturada Sistemas 
Minicomputadores Teoria Prática 
Programação COBOL 

Programação Métodos Computacionais V.l 
Engenharia Programas 

Programação Metodos Computacionais V.2 
Basic Engenheiros Cientistas 

Redes Comunicação Dados Aplic. Computad, 
Introdução Ciência Computação 
Algoritmos Estruturas Dados 

COBOL Técnicas Dispositivos Especiais 
Programas Basic Microcomputadores 
Basic Aplicações Comerciais 

Introdução linguagem Basic 

COBOL para Micros 

Microinformática Empresa 

Simulação Basic Microordenadores 
TRS-80 Programação usando Arquivos Dados 
Curso Programação Basic 

Fluxogramas Programação COBOL 
Micros Lógica SINCLAIR Guia Básico 
Computação para Crianças 

Supercalc 2 

Lotus 1-2-3 Ligações Symphony 

Arte Gráficos APPLE II 

D Base II Manual 

APPLE Assembly 6502 

SOL, 


4.4608 
4.1308 
4.4208$ 
7.0258 
6.2508 
6.295$ 
5.6058 
2.3758$ 
8.7008 
3.5258 
5.5608 
1.6008$ 
3.7508 
2.1608 
2.355$ 
3.5608 
5.3308 
5.3308 
1.4658 
2.1208$ 
3.0558$ 
ZDB TIS 
3.2908 
5.175$ 
3.5408 
3.7208 
1.2208 
2.820$ 
2.3308 
3.9808 
2.375$ 
2.6308 
2.9408$ 
2.935$ 
2.415$ 
1.7208 
6.165$ 
2.6758 
2.5258 
1.3758 
2.8458$ 
1.170$ 
2.6508 
3.0708 
2.055$ 
3.0708 
2.525$ 
2.375$ 
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Não necessita recortar qualquer Cupão !!! 
Bastará uma fotocópia ou, simplesmente, uma carta com os elementos 
solicitados ! 


O O ss a Eneias E ca A NRO a a e = 
CUPÃO DE ASSINATURA. [urina ga tos rinpaiihago i, ] 
Assinaturas: Continente e Ilhas - 6 nºs = 1.800$00 ; 11 nºs = 3.000$00 

Estrangeiro - 6 nºs = 3.600$00 ; 11 nºs = 6.000$00 


| | 
| | 
| | 
| | 
| Desejo assinar a revista "RS232-Informática” por um periodo correspondente a: números. À iniciar no Nº | 
| | 
| Nome | 
| | 
| Morada | 
| Localidade Cód .Postal | 
| JuntoenvioChequeNº Vale Postal Nº | 


CUPÃO DE PEDIDOS [Ent a EE o 


Em relação a software, só serão satisfeitos os pedidos cujos titulos constem das listas. 


No que respeita à Secção “Biblioteca”, poderá acontecer que alguns dos títulos se encontrem ”Esgotados” face 
ao número limitado de Importação e haja alteração de preços sem aviso prévio. 


Nom 


Morad 


Localidade -——— o —————— Cód.Postal-—— 


COMPUTADOR 


JUNTO ENVIO CHEQUE Nº —  VALEPOSTALNº HH Total o So 


NOTA:Em virtude de um número significativo de encomendas, enviadas "À cobrança”, não terem sido levantadas pelos seus 


destinatários, com prejuízo para "RS232”, anulámos esta modalidade. No caso de não nos ser possível satisfazer a totalidade do seu 
pedido, remeteremos a a quantia em excesso. 


EE TE TT EE EEE 


PC WORLD FORUM 
MOSCOW 


2nd Annual Intemational Computer 
Fair and Conference in the USSA 


July 9-14, 1991 


VDNH Exhibition Park Moscow, USSR 


PC WORLD FORUM / MOSCOW 
July 9- 14 1991 
VDNH Exhibition Park, Moscow 


Theme: 


PC WORDL FORUM is a showcase for companies 
that manufacture or resell computer systems 

for industry and administration; 

systems integration hardware and software; 
networking and communications equipment; 
workstations, DTP systems; systems components; 
peripherals. 


Organized by: I.C.F. Information Computer Enterprise, an IDG joint venture company. 
Contact: Terence Coe 


Phone: 800 - 225 - 4698 


GENIUS MOUSE série 6 


Ir ' 


GENIUS MOUSE série F 
c/ software DR.GENIUS 
e CAS CAD 


| - GENIUS OPTICAL MOUSE 
GM L320 
2 - GENIUS TRACKBALL 


GK-320 


GENIUS TABLET 


GT906 9”x 67 


GENIUS TABLET DIGITALIZADORA 
GT - 1212 B 12” x 12” 


JPR- Informatica 


Rua General Alves Roçadas, 38 - Loja 10* Tel/Fax - (01)-987 72 91 
2675 ODIVELAS - PORTUGAL 


